1 REM ****************
2 REM *   DER WURM   *
3 REM *              *
4 REM * (C)..BY      *
5 REM *     LOGIKER  *
6 REM * 14. MAR. 94  *
7 REM ****************...FREEWARE
10 POKE53280,0:POKE53281,0:CLR:F$="[159][156][158][149][150][151]"
20 A=247:X=1:HI=1600:GOTO240
30 FORU=1TO9
40 READZZ(U):READZS(U):KR(U)=1023+ZZ(U)*40+ZS(U)
50 NEXT:RETURN
60 PRINT"[147]LGK[146] [166]";
70 A=247:X=1
80 POKEKR(1),177
90 JS=PEEK(56321)
100 IFJS<244ORJS=255THENJS=A
110 A=JS
120 IFZ<24AND(JSAND2)=0THENPRINT"[157][166]";:GOTO160
130 IFS<39AND(JSAND8)=0THENPRINT"[166]";:GOTO160
140 IFS>1AND(JSAND4)=0THENPRINT"[157][157][166]";:GOTO160
150 IF(JSAND1)=0THENPRINT"[145][157][166]";
160 GOSUB180
165 IFX=10THEN420
170 GOTO90
180 Z=PEEK(214)
190 S=PEEK(211)
200 IF(Z=ZZ(X))AND(S=ZS(X))THENX=X+1:PRINT"[157]*";:POKEKR(X),176+X:PRINTMID$(F$,X,1);
220 RETURN
230 DATA10,10,18,11,4,30,19,20,23,36,4,4,10,20,3,34,7,7
240 PRINT"[147] LOGIKER/T-C PRAESENTIERT:  DER WURM [146]
250 [153]"DERWURMWAITISTUNTERWEGS.ERMUSSJEDEZAHLVON1BIS9'ESSEN',";
260 [153]"UMZUGE-WINNEN!";
270 [153]"VERWENDEJOYSTICKINPORT1.
280 PRINT"SPIELARTEN:
290 [153]"A)VORGEGEBEN
300 PRINT"B)ZUFAELLIG
305 [153]"C)LETZTEKOMBINATIONNOCHEINMAL
320 PRINT"LOGIKER/T-CPRAESENTIERT: DER WURM [146]":PRINT"[145][145][145][145]IHREWAHL: ";
330 PRINT"[157][175]";:GETA$:PRINT"[157] ";:IFA$=""THEN330
340 IFA$="A"THENRESTORE:GOSUB30:TI$="000000":GOTO60
350 IFA$="B"THENGOSUB370:TI$="000000":GOTO60
355 IFA$="C"ANDZZ(5)<>0THENTI$="000000":GOTO60
360 GOTO330
370 FORU=1TO9
380 ZZ(U)=1+INT(RND(1)*24):ZS(U)=INT(RND(1)*35):KR(U)=1023+ZZ(U)*40+ZS(U)
390 NEXT:RETURN
420 DT=TI:IFDT<HITHENHI=DT
430 PRINT"LGK[146][157][157][157][157]DEINEZEIT:";DT;"HIGH:";HI;"[146]"
440 GOTO250